getChar :: () -> IO Char